home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 50 / Mail_Madness_50_200x_Raiders_of_the_Lost_Empire_Side_A.d64 / Bziel verfehlt!B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  88 lines
  1. 0 rem save"@:[194]ziel verfehlt![194]",12
  2. 1 lw=peek(186):ifz=0thenz=1:goto4
  3. 2 ifz=1thenz=2:goto10
  4. 3 ifz=2thenz=3:sys49152:goto19
  5. 4 fora=49154to49317:readi:pokea,i:next:
  6. 5 load"[194] z1*",lw,1:end
  7. 6 :
  8. 7 load"[194] z2*",lw,1
  9. 8 end
  10. 10 w=170:poke53280,0:poke53281,0:gosub900:p=0
  11. 11 forza=2to7:poke53334,za:gosub20:next
  12. 12 forza=7to2step-1:poke53334,za:gosub20:next:ifzd<9thengoto11
  13. 13 forza=1to9:poke53280,f(za):poke53281,f(za):next:poke53280,0:poke53281,0
  14. 14 pokev+21,0:poke53265,11:print"[147]":poke53265,27:forzb=0to10
  15. 15 forza=2to7:poke53334,za:next
  16. 16 forza=7to2step-1:poke53334,za:next:next:poke54278,15:poke53334,200
  17. 17 sys49154
  18. 18 load"[194] z2*",lw,1
  19. 19 forza=0to76000:nextza:poke53265,11:sys64738
  20. 20 gosub530:print"";:forze=0tozd:print"":next
  21. 21 printtab(20-len(a$(zd))/2);mid$(a$(zd),1,zc);:ifr=>9thenr=0:pokev+21,255
  22. 22 zc=zc+1:ifzc=len(a$(zd))+1thenzd=zd+1:zc=0
  23. 23 pokev+41,f(r):r=r+1:p=p+1:ifp=2thenp=0:gosub25
  24. 24 return
  25. 25 zf=zf+0.1:pokev+4,w+(80*sin(2*zf)):return
  26. 255 gosub530:ifzc=len(a$(zd))+1thenzd=zd+1:zc=0
  27. 520 :
  28. 530 poke54287,f2
  29. 540 f1=f1+0.5
  30. 550 poke54273,f1:f2=f2+.01:return
  31. 900 print"[144][147]";:poke53280,0:poke53281,0:poke53265,11
  32. 901 print"             ziel verfehlt !"
  33. 902 print"             [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  34. 903 print"[155]            honey & soraya.vc"
  35. 904 print"[155]               2. mai 2oo3"
  36. 905 print"[155]        von der  [158]mail [154]madness [150]#5"  
  37. 910 poke53265,27
  38. 1000 fora=49154to49317:readi:next:
  39. 1001 v=53248:pokev+21,0:poke2042,14:poke2043,13:poke2044,13:pokev+27,41
  40. 1002 poke2045,13:poke2046,13:poke2047,13:poke2041,13:poke2040,13
  41. 1003 forn=0to62:readq:poke832+n,q:next
  42. 1004 forn=0to62:readq:poke896+n,q:next
  43. 1012 pokev+0,w:pokev+1,50
  44. 1013 pokev+2,w:pokev+3,91
  45. 1014 pokev+6,w:pokev+7,133:pokev+5,150
  46. 1015 pokev+8,w:pokev+9,175:pokev+39,6:pokev+40,5:pokev+42,6:pokev+43,5
  47. 1016 pokev+10,w:pokev+11,217:pokev+44,6
  48. 1017 pokev+12,0:pokev+13,0:pokev+14,0:pokev+15,0:pokev+23,59
  49. 1020 forl=54272to54295:pokel,0:next:poke54296,6
  50. 1021 poke54277,8:poke54278,255:poke54276,23:f2=4
  51. 1101 a$(0)="hallo,hier spricht welle:erdball !"
  52. 1102 a$(1)="auf einem anderen stern in der"
  53. 1103 a$(2)="neuen welt hat man unser signal"
  54. 1104 a$(3)="empfangen.wir wurden als ziel"
  55. 1105 a$(4)="erfasst.man schoss eine rakete"
  56. 1106 a$(5)="auf unseren planeten mit der"
  57. 1107 a$(6)="fracht,die wir am"
  58. 1108 a$(7)="meisten brauchen."
  59. 1109 a$(8)="doch leider wurde das... "
  60. 1120 forza=0to30:print:next:print"[144][147]";:
  61. 1121 f(1)=11:f(2)=12:f(3)=15:f(4)=8:f(5)=1:f(6)=8:f(7)=15:f(8)=12:f(9)=11
  62. 1122 forza=1to9:poke53280,f(za):poke53281,f(za):next:pokev+21,59
  63. 1123 poke53280,0:poke53281,0:forza=0to500:next
  64. 1200 return
  65. 1300 rem datas
  66. 1301 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  67. 1302 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  68. 1303 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  69. 1304 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  70. 1305 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  71. 1306 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  72. 1307 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  73. 1308 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  74. 1309 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  75. 1310 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  76. 1311 data254,132,253,96
  77. 2000 rem sprite
  78. 2001 data128,0,0,64,0,0,60,0,0,3,240,0,0,15,128
  79. 2002 data0,0,112,0,0,12,0,0,2,0,0,2,0,0,1,0
  80. 2003 data0,1,0,0,1,0,0,2,0,0,2,0,0,12,0,0
  81. 2004 data112,0,15,128,3,240,0,60,0,0,64,0,0,128,0,0
  82. 2011 data0,16,0,0,16,0,0,56,0,0,56,0,0,124,0
  83. 2012 data31,255,240,7,255,192,1,255,0,0,254,0,1,239,0,3
  84. 2013 data199,128,7,1,192,12,0,96,0,0,0,0,0,0,0,0
  85. 2014 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 10000 geta$:ifa$=""thengoto10000
  87. 10001 poke53248+21,za:za=za+1:goto10000
  88.